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16-56 1984 00:51:37 VAX=11 Bliss-32 V4.0-742 Pa 1 
1 ~Sep-19 4 99333334 DISKSVMSMASTER: CPATCH.SRCIPATECO.B32; 1° (1) | 


oO 


folelelole) 


MODULE PATECO cae ZVARIANT EQL 1 


ADDRESSING_MODE (EXTERNAL = LONG RELATIVE, 
NONEXTERNAL = LONG_RELATIVE), 


WMPwn— 


tFI 
— = 'v04-000' 
BEGIN 


| 
Vee RRR RRR AAA AAAAEAEEEREEREA AAA AERA ARERAAAAAEERERERAKREARKAR AEE | 
| 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
i® ALL RIGHTS RESERVED. 


't THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
= FaanereRneee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aRPORAT ithe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
Vee RRA RARER AEA AA EAA AA AAA R EEA A AEE AA EAE AAAS 
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eae eneeenenenneneneneeeennennenne 
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Sssssssss Ssssss SSsssssss OoOooooo 

tk ak kt kk at at at at ot ot SS OOD OOOO 
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ee osha 2 ee a ee ne raan anna 


'e¢ 
2 : FACILITY: PATCH 

i ABSTRACT: THIS MODULE CONTAINS ROUTINES TO HANDLE ECO COMMANDS. 
; 44 ENVIRONMENT: PART OF THE IMAGE FILE PATCH UTILITY FOR VAX. 
1 0041 AUTHOR: K.D. MORSE , CREATION DATE: 21-OCT-77 | 
5 G94s i MODIFIED BY: | 
5 045 ' v02-006 PCG0001 Peter George 02-FEB-1981 
$ Bpeg Add require statement for LIBS:PATDEF .REQ 

8 0048 ' v02-005 KDM0027 KATHLEEN D. MORSE 04-DEC-1980 
9 se84 : Change action taken on CHECK CNOT] ECO commands to be: 
? Opes } skip this ECO and scan until you find the next SET ECO command. 
§ B82¢ » : VERSION 


F 10 
PATE 16-Sep-1984 00:51:37 VAX-11 Bliss-32 V4.0-742 P 
vourb00 10738871 38e 99333584 DISKSVMSMASTER: PATCH. SRCIPATECO.B32; 1° (25 


: 5 054 1: : 
; $ ( » 1 ! TABLE OF CONTENTS: : 
; :4 : 
; 8 9 1 : 
; 9 B28 1 FORWARD ROUTINE . 
; 60 32 1 PATSECO_CMDS : NOVALUE; ! Handles ECO commands ‘ 
a 0 1 : 
; © 061 1! : 
; * 008 1 ! INCLUDE FILES: 

: 346646 065 1! 

3; 65 0064 1 LIBRARY ‘SYSSLIBRARY:L1I8.L32'; ! System structure definitions 

; 68 0 1 REQUIRE "SRC$:PATPCT.REQ'; ! Defines PSECTS 

; © 01 1 REQUIRE ‘SRC$:PATGEN.REQ'; ! Defines context bits 

; 03 1 REQUIRE ‘SRC$:PREFIX.REQ'; ! Defines structure macros 

; 9 0515 1 REQUIRE ‘SRC$:PATPRE.REQ'; ! Defines PATCH structures 

; 0 0678 1 REQUIRE ‘LIBS:PATDEF .REQ'; ! Defines Literals 

we 0732 1 REQUIRE 'LIBS:PATMSG.REQ'; ! Defines error message codes 

. £ 0906 1 REQUIRE ‘SRC$:BSTRUC.REQ'; ! Defines basic structures | 

BY. = 0982 1 REQUIRE ‘SRCS$:LISTEL.REQ'; ' Defines list structures 

3; ££ 9 1 REQUIRE "SRC$:VXSMAC.REQ'; ! Defines TRUE and FALSE | 

; 1089 1 

; © 1090 1! 

Sos ae 1091 1 ! MACROS: 

[- 1936 1: | 

; 10935 1 

; 80 1094 1! 

; 8 1095 1 ! EQUATED SYMBOLS: 

; & 1096 1! 

; 8 1097 1 

; (84 1098 1! 

3; «68S 1099 1 ! OWN STORAGE: 

; 86 1100 1! 

: 1101 (1 

; «688 1108 1? 

>; (89 1103 1 | EXTERNAL REFERENCES: | 

; 1104 1! 

.. 1105 1 EXTERNAL 

‘eo 1196 1 PATS$GL_FLAGS ' CLI flags | 

ae 1107 1 PAT$GL_ECO UPD : BITVECTOR, ! /UPDATE qualifier ECO mask 

; 94 1108 1 PAT$GB_EXEC CMD : BYTE, ! Indicator whether or not to execute patch | 

> 1109 1 PATSGB_ECOLVL : BYTE ' ECU level for current patc 

; 9% 1110 1 PATSGL-IHPPTR : REF BLOCKC.BYTE), i Pointer to patch section of image header 

> 1117 «1 PATSGL_IMGHDR : REF BLOCKC,BYTEJ, ! Pointer to image header 

tie 1 PATSGL_CONTEXT : BITVECTOR, ' Context bits 

; 1115 (1 PATSGL_HEAD LST, ! Listhead for command parameters 

:; 100 1114 1 PATSGL_OLDNBK : BLOCKC,BYTE), ! Old image file name block 

3 13) ayia : PATS$SGB_OLDNAME ; ! Name of old image file 


10 
18- -Sep- 1384 99: 2}: 7 VAX=11 Bliss=-32 V4.0-742 3 
14-Sep- 984 2:31 DISKSVMSMASTER: CPATCH. SRCJPATECO. B32;1 * 03) 


GLOBAL ROUTINE PATSECO_CMDS : NOVALUE = ! HANDLES ALL ECO COMMANDS 


lee 


FUNCTIONAL DESCRIPTION: 


THIS ROUTINE HANDLES THE COMMANDS=-CHECK ECO, CHECK NOT ECO, AND 
i THE ECO LEVEL NUMBERS HAVE ALREADY BEEN SCANNED AND INSERTED IN 
! ONE ENTRY CONSISTS OF THREE LONG WORDS: 


-) THE FORWARD LINK 
23) THE ECO LEVEL COR THE START OF bi ECO RANGE) 
) ZERO (OR THE END OF THE ECO RANGE) 


NOTE THAT THE SECOND AND neon LONGWORDS DESCRIBE 
A_RANGE OF LEVELS, WITH THE SECOND LONGWORD BEING 
BEING THE MAXIMUM’ IF THERE IS ONLY A SINGLE ECO 
LONGWORD IS A 


—> 2s 


LIS 


ECO LEVEL 
UM AND rine OTHIRD | 
N HIRD | 


THE T 


E BITS IN THE } HEADER 
ae i 435 LEVELS FROM THE COMMAND. THE CONTE ITS, $ co 7 
a 4 "THE CK 


SET ECO, T ECO" 
RESPECTIVELY. IF NEITHER BIT IS SET, THEN THE ST HAVE BEEN “CHECK ECO". 


IF THE APPROPRIATE ECO BITS, ARE ALREADY ser, OR NOT SET, THEN AN ERROR 
MESSAGE IS PROD UCED. THE ' ECO’’ COMMAND CHECKS THAT THE ECO LEVEL WAS 

A LR A $ NOT orn ATHEN. ANOTHER CHECK IS MADE TO SEE IF 
FIED BEFORE AN ‘ COMMAND. THIS IS DONE 
1S INDICATOR 1S yee at THE ‘'SET ECO’ COMMAND 
MMAND. IF IT CONTAINS A NON-ZERO VALUE WHEN | 
THIS ROUTINE EXECUTES, U3 TWO ‘Sei ECO" COMMANDS WERE SPECIFIED FOR ONE 


WN — SO OCONOUEWN “OVO ONOUS Wh —O0@ 
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‘SET 
I 
Cl 
, TH 
0 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


THE CONTEXT BITS ARE S$ 
THE IMAGE HEADER HA ; 5 
IF NECESSARY 


ET AND THE COMMAND PARAMETERS ARE PARSED. 
EEN READ AND EXPANDED TO INCLUDE A PATCH SECTION, 
IMPLICIT OUTPUTS: 
THE APPROPRIATE ECO BITS ARE SET OR CHECKED IN THE IMAGE HEADER. 
ROUTINE VALUE: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: | 
AN ERROR MESSAGE AND EXIT OCCUR IF THE APPROPRIATE ECO BITS ARE NOT SET. 
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> 


LOOP_CNT, 
LOOP"MA 
LIST“PTR, 

ECO_PTR : REF F\TVECTOR; 


'e¢ 


COMMAND PARAMETER, AN ECO LEVEL OR RANGE. 


ECO_PTR = CHSPTR(PATSGL_IHPPTRCIHPSL ECO1), 0); 
LIST_PTR = CHSPTR(.PATSGL_HEAD_LST, 0); 


WHILE .LIST_PTR NEQA 0 
BEGIN 


OOP_CNT = .LIST_ELEM_EXP1(.LIST_PTR) = 1; 
Prcist _ELEM_EXP2(.LTST_PTR) EQC 0 


LOOP_MAX = .LOOP_CNT 
LOOP_MAX = .LIST_ELEM_EXP2(.LIST_PTR) = 1; 


ELSE 

lee 

i CHECK FOR ERRORS IN RANGE OF ECO LEVELS. 
if .LOOP_MAX LSS .LOOP_CNT 

THEN 


SIGNAL (PAT$_EXARANGE); 
IF LOOP MAX GTR (PATSK_MAX_ECO - 1) 


Shem ary BADECO, sales :b00P MAX+1, 
A eal CNT LSS (PATSR_MIN_ECO - 1) 


SIGNAL(PAT$_BADECO, 3 
PATSGB_OLDNAME); 


WHILE .LOOP_CNT LEQ .LOOP_MAX 
BEGIN 


'ee 
i NOW HANDLE THE ‘SET ECO" COMMANDS 
SET ECO CONTEXT BIT. 


it .PATSGL_CONTEXTCSET_ECO) 
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‘e+ 
: LOOP TO HANDLE ALL ECO LEVELS AND RANGES FOR THIS COMMAND. 


VAX=11 Gliese 32 V 
DISKSVMSMAST 


v 
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rc 
— 
nm 


; INITIALIZE POINTERS TO THE ECO BITS IN THE IMAGE HEADER AND TO THE FIRST 


| "Set UP A LOOP TO HANDLE A SINGLE ECO LEVEL OR RANGE OF ECO LEVELS. 


! INITIALIZE LOOP COUNT 
iCHECK IF MAXIMUM RANGE 


! EXISTS, 
: IF NOT, SET MAX TO MIN AS SINGLE ECO LEVEL | 
! IF SO, SET LOOP MAXIMUM (MAX ECO RANGE) 


! CHECK FOR REVERSED RANGE 


! REPORT , ERROR 
CHECK FOR 1 a ECO LEVEL 
max REPORT ERR 


.PATSGL _OLDNBKENAMSB. RSLJ, 


! CHECK FOR ILLEGAL ECO LEVEL 
MIN, REPORT ERROR 


.LOOP_CNT#1, .PATSGL _OLDNBKENANSB. RSLI, 


! LOOP FOR ONE RANGE 


BY TESTING FOR THE 
THEN TEST If ANOTHER ECO LEVEL IS SET. 


4.0-742 4 
ER: CPATCH. SRCIJPATECO. B32. 79 marae 


PATE 18-50 Sep-1984 7 —-VAX=11_BLigs-32_v4.0-74 
vo4=000 Sep-1984 19:52:31 DI SKSVMSMASTERSEPATCH.SRCIPATECO.B3254°" 


1 THEN 
EGIN 

: LF ECO. PTRE.LOOP_CNTJ ' CHECK ECO BIT NOT ALREADY SET 

5 BEGIN 

é SIGNAL (PATS ECOSET, 3, .LOOP_CNT#+1 sPATSGL OLDNBKCNAM$B_RSLJ, 

PAT 186 B_OLDNAM AME); ! REPORT ERROR 
: PATSGB ECOL 
ares ~Exet VEMD =" FALSE; 

40 RE TUS 
41 END; 
4¢ IF PATSGB_ "a NEQ 0 | 
44 SIGNAL(PATS_MULTECO, 2, .PATSGB_ECOLVL, .LOOP_CNT+1); | 
45 PATSGB ECOLVL : -L0 o0P CNT#1: “I REMEMBER ECO LEVEL FOR UPDATE’ COMMAND 
4g PATSGB: EXEC_CMD = TRUE; i FORCE COMMANDS TO BE EXECUTED 
47 IF (.PATSGL- “FLAGS AND PATSM_UPDATE) NEQ 6 | 
49 BEGIN | 
50 IF NOT .PATSGL_ECO_UPD<.LOOP_CNT, 1> ! IFN DATE | 
51 THEN { THEN RESES THE INDICATOR 

38 i FOR NO EXECUTION 

5 PATSGB_ECOLVL = 0; 
54 PAT$SGB-EXEC_CMD = FALSE; 
35 SIGNALTPATS- UPDATE, 1, .LOOP_CNT+1); 
3$ END; 
58 END 
59 ELSE 
60 'e¢ 
61 i COMMAND WAS NOT "SET ECO", THEREFOR IT MUST BE EITHER 
6g i “CHECK NOT ECO" OR CHECK ECO’. THE SET_NOT_ECO CONTEXT 


8 BIT WILL TELL WHICH COMMAND IT WAS. 


ways 


iF _.PATS$GL_CONTEXTCSET_NOT_ECOJ ! "CHECK NOT ECO*’ COMMAND? 
é *HEN accin ! IF SET THEN YES 
5 If .ECO_PTRC.LOOP_CNTI : CHECK ECO EL A i NOT SET 
THEN : IF IT IS, 


MIMIFORO TORR nonononononornonon 
SNA OA OO 
WO 0OnOu 


BEGIN 
SIGNAL (PATS gcoser 3, .LOOP_CNT+1, 
PA ATS6L 


| 
LEV 
REPORT ERROR | 
| 
LONBKCNAMSB-RSL], PATSGB_OLDNAME); | 


PAT$GB _ECOLV ="C; 
74 ie EXEC ‘CMD = FALSE; 
RETUR 
END 
ELSE P 
IF NOT .ECO_PTRC.LOOP_CNT) ' COMMAND WAS ‘CHECK ECO’ 
THEN ' REPORT ERROR IF NOT SET 


BEGI | 
SIGNAL (PATS CONOTSET, 3, .LOOP cut | 

:PATS GL. LDNBKCNAMSB_ RSC patscs _OLDNAME ) ; | 
PAT$GB_ECOL 
PATSGB EXEC YCMD = * FALSE: 
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N 
T_PTR = CHSPTR( 
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E 
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0 
1 
5 
6 
: 
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4 10 
16-Se 
14-Se 
-LOOP_CNT + 1; 
oLIST_ELEM_FLINK(.LIST_PTR), 0); 


O7FC 00000 


9E 0000 
9E 0000 


SOOooooooooooooooooooooooosoo 


SOOOCCOCOGOOCOSOCSOSOOSOOOOCOOCOoOOooOoo 


9 "O90 O00 9 190 ]92 9 “Oo NO-T TC O0NO 
OnWwo9 "29ND 9 WO" WI" ONMUWENMOOMmm 
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! END OF PATSECO_CMDS 


4) 
\v04=-000\ 


20 
4 
16 
9 


24 
PATSGL_FLAGS 


PATS$GL—HEA 
PATS$GL~OLD 


PATS$GL—HEAD_L 
es 


#1, 4(LIST_PTR), LOOP_CNT 
(LIST_PTRY 

LOOP_cNT, LOOP_MAX 

#1, 8(LIST_PTR) 

QOP_MAX. Coop_¢n 


#7176362 
#1, LIBSSIGNA 


LOOP _MAX, #2 


1¢ 


#7176346 
#5, LIBSSIGNAL 


LOGP_CNT 


4.0-742 P 6 
CH. SACIPATECO.B32:1— (3) 


J PAT$GL_ECO_UPD 
PATSGB_EXEC_ CMD 

PATS$SGB_ECOLUL, PATSGL_IHPPTR 
PATSGL_IMGHDR, PATSGL_CONTEXT 


D_LST 
NBK, PATS$GB_OLDNAME 
ACCESS_ CHECK 


_PATSCODE .NOWRT,2 
PATSECO_CMDS, Save R2.R3,R4,R5,R6,R7,RB,R9,~ 


PATS$GB_EXEC CMD, R10 
PAT$GB_ECOLVL 


$SIGNAL, R 
PATSGL_IHPPTR, ECO_PTR 


R? 
PATSGL_OLDNBK+3, -(SP) 
LOOP MAX) 


kK 10 
PATE 16-Sep-1984 00:51:37 VAX-11 Bliss-32 V4.0-742 Page 7 
y04~000 19=808- 1382 9033558 DISKSVMSMASTER = CPATCH. SRCIPATECO.B32: 1° (3) 
57 DD 00078 PUSHL 7 : 1219 
7E 6 eh 7A MOVZBL PATSGL_OLDNBK+3, -(SP) : 
01 A2 9F 0007 PUSHAB 1(LOOP~CNT) : 
DD PUSHL # : 
006D809A 8F DD PUSHL #7176346 : 
$6 F CALLS #5, LIBSSIGNAL F 
4 B 7$ CMBL O6P_CNT, LOOP_MAX : 1222 
008) 33 6 BRW $ : 
46 000000006 EF E1 09 8$ BBC #2, PATSGL_CONTEXT+2, 10$ + 1230 
4E $5 £0 98 BBS LOOP_CNT, TECO_PTR), 11$ : 1233 
0 é oA O9F MOVZBL PATSGB_ECOLVL, RO + 1242 
01 A2 9F O000A4 PUSHAB 1(LOOP_CNT) + 1244 
50 DD 000A7 PUSHL RO : 
DD 000A9 PUSHL é : 
006D80F2 8F DD OOOAB PUSHL #7176434 : 
Ab 4 FB 000B1 CALLS #4, LIBS$SIGNAL F 
50 01 ae 43 00B4 9$: MOVAB 1 . : 1245 
69 50 90 00088 MOVB RO, PAT$GB_ECOLVL ; 
6A 01 90 00088 MOVB #1, PAT$GB~EXEC CMD + 1246 
55 000000006 EF 04 E1 O00BE BBC #4, PATSGL-FLAGS, 14$ + 1247 
4D 000000006 _ EF ; E0 00¢6 BBS LOOP_CNT, PATSGL_ECO_UPD, 14$ : 1250 
69 94 O0cE CLRB ss: PAT$GB_ECOLVL > 1253 
6A 94 9000 CLRB = PATSGBEXEC_CMD + 1254 
50 DD 000D2 PUSHL RO + 1255 
o1 DD 00004 PUSHL : 
00608038 8F ODD 90006 PUSHL #7176251 : 
66 03 FB O00DC CALLS #3, LIBS$SIGNAL ; 
A 11 O00DF BRB : 1230 
16 000000006 EF O1 E1 OO0E1 10$: BBC #1, PATSGL_CONTEXT, 12$ + 1265 
2E 65 : E1 O00E9 BBC LOOP_CNT, TECO_PTRS, 14$ : 1268 
57 DD OOOED 11$:  PUSHL R7 : 1271 
7E 68 9A OOOEF MOVZBL PATSGL_OLDNBK+3, -(SP) + 1272 
01 Ag OF OOF 2 PUSHAB 1(LOOP~CNT) > 1271 
03 DD OO0F PUSHL # ; 
00608048 8F DD 000F7 PUSHL #7176267 ; 
14 11 OOOFD BRB 1 ; 
18 65 38 EO OOOFF 12$: BBS LOOP_CNT, (ECO_PTR), 14$ : 1279 
BD 0103 PUSHL 7 : 1282 
7E 68 9A 0010 MOVZBL PATS$GL_OLDNBK+3, -(SP) + 128 
01 A2 OF 0108 PUSHAB 1(LOOP~CNT) + 1282 
03 DD 001 PUSHL : 
00608043 Hi DD 100 PUSHL #7176259 F 
A 5 FB 00113 13$: CALLS #5, LIBSSIGNAL : 
69 94 118 CLRB © PAT$GB_ECOLVL > 1284 
6A 94 0011 CLRB  PATSGB~EXEC_CMD > 1285 
04 OO11A RET : 1281 
52 06 118 148: INCL OOP_CNT : 1288 
FFG 1 0011 BRW t 1222 
53 ‘ 0 4 15$:  MOVL  (LIST_PTR), LIST_PTR > 1290 
FFOD 1 BRW 1$ + 1194 
4 00126 RET : 1293 


; Routine Size: 295 bytes, Routine Base: _PATSCODE + 0000 


De Se Be Pe Se Se Se Se Se Se Be Ge Ge Se Be Se Se Fe Fe Ge Se Ge Fe Fe Ge Se Fe Ge Se Ge Ge Se Se See Se Se SeSe Se Se se Se Se Se Se Se Sete Ge ee Se Se ee te Seas 


1$Beoct9Rs 00:61:57 vated elses 32 


: $88 1338 ELuoom eS 
~-EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
i Name Bytes Attributes 
: tengo 295 NOVEESNOWRT wf cwoBSE-MOSMR: EEL: ABE: EBN-MBPLE-ALTSNG} 


Library Statistics 


; Size: 295 code + 0 data bytes 
un Time -0 


; pkg Tine: eH 754.9 
3; Lines/CPU Min: 4100 


"Y Used: 190 pages 
; Compilation Complete 


hat a, ee ep LS el Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 8 0 1000 00:01.8 

: COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /VARIANT:1/LIS=LIS$:PATECO/OBJ=OBJ$:PATECO MSRC$:PATECO/UPDATE=(ENH$:PATECO) 


030 AH-BT13A-SE T CORPORATION 
VAX/VMS V4.0 | | | -PROPRIETARY 


